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DECLARATIONS 
FORSWRITE_SN = Write sequential NAMELIST 
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LARARRBRAAAAAAAAAAALAAAAASEAA LALA E SEALER RSA ELE RESELL EEE REARS EEE ESET REE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


‘* 
® 
® 
oe 
® 
® 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPLED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
;# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
*® 
:® 
*® 
*® 
*® 
bad 
* 
*® 
*® 
:® 
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® 
® 
we 
® 
a 
® 
® 
® 
fe 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eepPORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ABSTRACT: 


This module contains FORSWRITE_SN, the user interface to the FORTRAN 
1/0 Run-Time Library which begins a WRITE NAMELIST statement. 


ENVIRONMENT: Runs at any access mode, AST Reentrant 


MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


. TRANSFER FORSWRITE_SN 
»MASK FOR$$10_BEG 
JMP FORSWRITE_SN+2 


This puts the correct mask in entry vector, that is FORS$IO_BEG entry mask. 
Furthermore this module must only use RO and R1 
since any other register might not be in the entry mask for FORS$$I0_BEG. 


AUTHOR: Steven B. Lionel, CREATION DATE: 21-July-1980 
MODIFIED BY: 


1- 186 - Original. SBL 21-July-1980 
1-002 = Second colon afier entry point name accidentally left off; replace. 


SBL 11-Nov-1980 
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3 LIBRARY MACRO CALLS: 
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SISBDEF ; Intra-statement block definitions 


; EXTERNAL DECLARATIONS: 


-DSABL GBL : 
~EX FORS ; 
EXTRN FOR 
FOR 


f 
$10 BEG 

~ EXT SSUDF_WNO, FORSSUDF_WN9 
EXTRN $$R 


EC“WSNO, FORSSREC_WSN1 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

PSECT DECLARATIONS: 


.PSECT _FORSCODE PIC, USR, CON, REL 
EXE, RD, NOWRT. LONG 


orce all external symbols to be declared 
Common initialization routine 


; To pull in weak references 
; To pull in weak references 


LCL, SHR, - 


~~ 
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te sequentia wade "OSE =] d 99:08:73 PORTE. SRCIFOMURI TSN MAR: 1 
ri -SBTTL FORSWRITE_SN = Write sequential NAMELIST 
FUNCTIONAL DESCRIPTION: 

This routine begins a FORTRAN WRITE NAMELIST statement. 
; CALLING SEQUENCE: 

CALL FORSWRITE_SN (unit.rl.v, namelist.rlu.ra C, err_eql.j.rJ) 

; FORMAL PARAMETERS: 


unit - te ba unit number 
namelist - address of namelist descriptor block (see below) 


~ ws 


err_eql - address of instruction to branch to if an error occurs 


IMPLICIT INPUTS: 
; NONE 

; IMPLICIT OUTPUTS: 

; NONE 

; COMPLETION STATUS: 

; NONE 

; SIDE EFFECTS: 

; One WRITE NAMELIST statement will be executed. 


FORSWRITE _SN:: 
-MASK FOR$$I0_BEG 
MOVZBL #ISBSK_ST_TY_WSN, RO 3 Move statement type 
JMP G*FORS$I0_BEG+2 ; Jump to FORS$IO_BEG 


- END 3 End of module FORSWRITE_SN 
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Symbol table 
FORSS10_ BEG eeneneee §=6Y 
Ones met e-uent eeeeeere xX 
FORSS eeeereee 
bio rp reeeeeee x 
Saat oe saaannag act 
FOR 
ISBSk $1 TY WSN = $o0000'3 
een eenecwenzeecea } 
! ; Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 0.) 89 ( 9-3 NOPIC USR CON ABS LCL 
_FORSCODE 0000000B ( 11.) 1 ¢ . PIC USR CON REL LCL 
pewmeacocas Seeman maowa nares 
! ; Performance indicators | ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 7 00:80:00 -08 00:00:00.91 
zemnens processing 121 + 0:00. 0:00:04.09 

s 1 122 : Bh 8:88: 89 
Synbol table sort 0:00:00.1 0:00:00.47 

s 2 3 + 0:00.39 00:00:01.81 
Syabot table output :00:00.0 88 +88 88 Be 
Psect synopsis output 0:00:00.0 8880: 0.0 
Cross-reference output 00: 3:8 9 00: 8:99 -09 
Assembler run totals 324 00:00:02. 00:00:12.2 


The working set Limit was 1050 pages. 

5742 bytes (12 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space oh eseree to hold 168 non-local and 0 Local symbols. 
130 source .ines were read in Pass 1, produci mS object records in Pass 2. 

8 pages of virtual memory were used to define 1 macro. 


Macro library name Macros defined 


$25580UA28: FORRTL.OBJJFORRTL. te 1 1 
“$255$DUA28 SYSLIBISTARLET. MLB; 0 
TOTALS (all Libraries) 1 


164 GETS were required to define 1 macros. 
There were no errors, warnings or information messages. 
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at at 1 NORD NOWRT NOVEC BYTE 


RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:FORWRITSN/OBJ=OBJ$:FORWRITSN MSRCS$:FORWRI TSN/UPDATE=(ENHS:FORWRITSN) +L I 


~~ 


T CORPORATION 
PROPRIETARY 
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